object FrmVisualise: TFrmVisualise
  Left = 290
  Top = 265
  Width = 965
  Height = 516
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Visualisation'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000FFFFFFFFFF000000FFFFFFF000000000FFF
    FFF0788700000FFFFF0788E7F0000FFFFF08888780000FFFFF08E88780000FFF
    FF07EE87F0000FFFFFF0788700000FFFFFFF000000000FFFFFFFFFF000000FFF
    FFFF000000000FFFFFFF080000000FFFFFFF000000000000000000000000FFFF
    0000000C00000008000000010000000300000003000000030000000300000003
    000000070000000F0000000F0000000F0000001F0000003F0000007F0000}
  OldCreateOrder = False
  Position = poDefaultPosOnly
  WindowState = wsMaximized
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnMouseWheel = FormMouseWheel
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object toolbar: TToolBar
    Left = 0
    Top = 0
    Width = 957
    Height = 25
    Caption = 'toolbar'
    DisabledImages = ilFichierDisable
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = ilFichierEnable
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object ToolQuitte: TToolButton
      Left = 0
      Top = 0
      Action = ActQuitter
      ParentShowHint = False
      ShowHint = True
    end
    object TToolButton
      Left = 23
      Top = 0
      Width = 8
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolImprime: TToolButton
      Left = 31
      Top = 0
      Hint = 'Imprimer'
      Caption = 'Imprimer'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = ActImprimerExecute
    end
    object ToolPdf: TToolButton
      Tag = 2
      Left = 54
      Top = 0
      Hint = 'Classement manuel'
      Caption = 'Impression format PDF'
      ImageIndex = 12
      OnClick = VerifBoutton
    end
    object ToolMail: TToolButton
      Left = 77
      Top = 0
      Action = ActMail
    end
    object ToolGED: TToolButton
      Tag = 1
      Left = 100
      Top = 0
      Hint = 'Classement automatique'
      Caption = 'GED'
      ImageIndex = 17
      OnClick = VerifBoutton
    end
    object TToolButton
      Left = 123
      Top = 0
      Width = 8
      ImageIndex = 3
      Style = tbsDivider
    end
    object panel: TPanel
      Left = 131
      Top = 0
      Width = 58
      Height = 22
      BevelOuter = bvNone
      Caption = 'Document'
      TabOrder = 1
    end
    object CbDocument: TComboBox
      Left = 189
      Top = 0
      Width = 225
      Height = 21
      Style = csDropDownList
      DropDownCount = 30
      ItemHeight = 13
      TabOrder = 4
      OnChange = CbDocumentChange
      OnKeyDown = FormKeyDown
    end
    object ToolDocPrec: TToolButton
      Left = 414
      Top = 0
      Action = ActDocPrec
      ParentShowHint = False
      ShowHint = True
    end
    object ToolDocSuiv: TToolButton
      Left = 437
      Top = 0
      Action = ActDocSuiv
      ParentShowHint = False
      ShowHint = True
    end
    object TToolButton
      Left = 460
      Top = 0
      Width = 8
      ImageIndex = 2
      Style = tbsDivider
    end
    object TPanel
      Left = 468
      Top = 0
      Width = 41
      Height = 22
      BevelOuter = bvNone
      Caption = 'Page'
      TabOrder = 2
    end
    object edPage: CEditNum
      Tag = -1
      Left = 509
      Top = 0
      Width = 49
      Height = 22
      Text = '1'
      ShowHint = True
      LibelleFont.Charset = DEFAULT_CHARSET
      LibelleFont.Color = clWindowText
      LibelleFont.Height = -11
      LibelleFont.Name = 'MS Sans Serif'
      LibelleFont.Style = []
      Mask = '9999'
      TypeValeur = eUInt
      TabOrder = 0
      OnChange = edPageChange
      OnKeyDown = FormKeyDown
      LeMax = '9999'
      LeMin = '1'
      LaValeurNS = '4294967295'
    end
    object ToolButton3: TToolButton
      Left = 558
      Top = 0
      Action = ActPageDeb
    end
    object ToolPagePrec: TToolButton
      Left = 581
      Top = 0
      Action = ActPagePrec
      ParentShowHint = False
      ShowHint = True
    end
    object ToolPageSuiv: TToolButton
      Left = 604
      Top = 0
      Action = ActPageSuiv
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton1: TToolButton
      Left = 627
      Top = 0
      Action = ActPageEnd
    end
    object TToolButton
      Left = 650
      Top = 0
      Width = 8
      ImageIndex = 3
      Style = tbsDivider
    end
    object TPanel
      Left = 658
      Top = 0
      Width = 47
      Height = 22
      BevelOuter = bvNone
      Caption = 'Zoom'
      TabOrder = 3
    end
    object cbZoom: TComboBox
      Left = 705
      Top = 0
      Width = 68
      Height = 21
      Style = csDropDownList
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 5
      OnChange = cbZoomChange
    end
    object TToolButton
      Left = 773
      Top = 0
      Width = 8
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolHelp: TToolButton
      Left = 781
      Top = 0
      Action = ActHelp
    end
    object SepLangue: TToolButton
      Left = 804
      Top = 0
      Width = 8
      Caption = 'SepLangue'
      ImageIndex = 14
      Style = tbsSeparator
      Visible = False
    end
    object lblLangue: TPanel
      Left = 812
      Top = 0
      Width = 47
      Height = 22
      BevelOuter = bvNone
      Caption = 'Langue'
      TabOrder = 6
      Visible = False
    end
    object edLangue: CEditUpDown
      Left = 859
      Top = 0
      Width = 51
      Max = 100
      SizeEspace = 10
      LibelleFont.Charset = DEFAULT_CHARSET
      LibelleFont.Color = clWindowText
      LibelleFont.Height = -11
      LibelleFont.Name = 'MS Sans Serif'
      LibelleFont.Style = []
      Visible = False
      TabOrder = 7
      OnChange = edLangueChange
    end
  end
  object ScbVisu: TScrollBox
    Left = 0
    Top = 25
    Width = 957
    Height = 431
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    TabOrder = 1
    OnMouseDown = ScbVisuMouseDown
    OnMouseMove = ScbVisuMouseMove
    OnMouseUp = ScbVisuMouseUp
    object ImVisu: TImage
      Left = 0
      Top = 5
      Width = 417
      Height = 340
      IncrementalDisplay = True
      Stretch = True
      OnMouseDown = ImVisuMouseDown
      OnMouseMove = ImVisuMouseMove
      OnMouseUp = ImVisuMouseUp
    end
  end
  object StVisu: TStatusBar
    Left = 0
    Top = 456
    Width = 957
    Height = 26
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object LstAct: TActionList
    Images = ilFichierEnable
    OnExecute = LstActExecute
    Left = 650
    Top = 28
    object ActQuitter: TAction
      Caption = 'Quitter'
      Hint = 'Quitter'
      ImageIndex = 7
      ShortCut = 32883
      OnExecute = ActQuitterExecute
      OnUpdate = ActUpdate
    end
    object ActDocPrec: TAction
      Category = 'FirstDoc'
      Caption = 'Document précédent'
      Hint = 'Document précédent'
      ImageIndex = 4
      ShortCut = 16417
      OnExecute = ActDocPrecExecute
      OnUpdate = ActUpdate
    end
    object ActDocSuiv: TAction
      Category = 'LastDoc'
      Caption = 'Document suivant'
      Hint = 'Document suivant'
      ImageIndex = 5
      ShortCut = 16418
      OnExecute = ActDocSuivExecute
      OnUpdate = ActUpdate
    end
    object ActPageSuiv: TAction
      Category = 'PageSuiv'
      Caption = 'Page suivante'
      Hint = 'Page suivante'
      ImageIndex = 11
      ShortCut = 34
      OnExecute = ActPageSuivExecute
      OnUpdate = ActUpdate
    end
    object ActPagePrec: TAction
      Category = 'PagePrec'
      Caption = 'Page précédente'
      Hint = 'Page précédente'
      ImageIndex = 10
      ShortCut = 33
      OnExecute = ActPagePrecExecute
      OnUpdate = ActUpdate
    end
    object ActPdf: TAction
      Caption = 'Impression format PDF'
      Hint = 'Impression format PDF'
      ImageIndex = 12
      ShortCut = 121
      OnExecute = ActPdfExecute
      OnUpdate = ActUpdate
    end
    object ActPageEnd: TAction
      Category = 'PageSuiv'
      Caption = 'Dernière page'
      Hint = 'Dernière page'
      ImageIndex = 15
      ShortCut = 16419
      OnExecute = ActPageEndExecute
      OnUpdate = ActUpdate
    end
    object ActPageDeb: TAction
      Category = 'PagePrec'
      Caption = 'Première page'
      Hint = 'Première page'
      ImageIndex = 14
      ShortCut = 16420
      OnExecute = ActPageDebExecute
      OnUpdate = ActUpdate
    end
    object ActMail: TAction
      Caption = 'Envoi par mail'
      Hint = 'Envoi par mail'
      ImageIndex = 16
      ShortCut = 122
      OnExecute = ActMailExecute
    end
    object ActHelp: TAction
      Caption = 'A Propos'
      Hint = 'A Propos'
      ImageIndex = 13
      ShortCut = 112
      OnExecute = ActHelpExecute
    end
    object ActImprimer: TAction
      Caption = 'Imprimer'
      Hint = 'Imprimer'
      ImageIndex = 6
      ShortCut = 120
      OnUpdate = ActUpdate
    end
    object ActParametrage: TAction
      Caption = 'ActParametrage'
      ShortCut = 123
      OnExecute = ActParametrageExecute
    end
    object ActGED: TAction
      Caption = 'GED'
      Hint = 'Envoi dans GED'#39'EIC'
      ImageIndex = 17
      ShortCut = 119
      OnUpdate = ActUpdate
    end
  end
  object ilFichierEnable: TImageList
    Left = 587
    Top = 28
    Bitmap = {
      [encoded data, 42560 characters]
      000000000000}
  end
  object ilFichierDisable: TImageList
    Left = 619
    Top = 28
    Bitmap = {
      [encoded data, 42496 characters]
      C03FFFFF0003C03FFFFFFFFFFFFFFFFF}
  end
  object PrintDialog1: TPrintDialog
    OnShow = PrintDialog1Show
    Collate = True
    Options = [poPageNums, poSelection, poWarning]
    Left = 682
    Top = 28
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'pdf'
    Filter = 'Fichier Adobe Acrobat|*.pdf'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
    Title = 'Fichier PDF à générer'
    Left = 514
    Top = 31
  end
end
